home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr18 / alad163.zip / ALAD163.EXE / pak / SCRIPT.TXT < prev    next >
Text File  |  1993-06-01  |  2KB  |  71 lines
  1. SCRIPT 3 Late Nite Auto-pass
  2. ECHO OFF
  3. :GET_PASS
  4. CLEAR
  5. NOTE ""
  6. NOTE "      Perform Unattended Late Nite Auto-pass"
  7. NOTE ""
  8. Note "Perform Auto-pass 1 or 2?  (Press <ESC> to quit)"
  9. GETKEY 0
  10. IF STRING 0 IS "^["
  11.   GOTO END
  12. ENDIF
  13. IF STRING 0 IS "1"
  14.   GOTO GET_TIME
  15. ENDIF
  16. IF STRING 0 IS "2"
  17.   GOTO GET_TIME
  18. ENDIF
  19. GOTO GET_PASS
  20. :GET_TIME
  21. NOTE ""
  22. Note "Enter Time To Begin Auto-pass %0 (24-hour format HH:MM)"
  23. NOTE "HH:MM"
  24. SETSTRING 1 "02:00"        // Default time to begin
  25. GETSTRING 1
  26. IF STRING 1 HAS ":"
  27. ELSE
  28.   BEEP
  29.   BEEP
  30.   NOTE "You Forgot the Colon (:)!"
  31.   GOTO GET_TIME
  32. ENDIF
  33. CLEAR
  34. NOTE ""
  35. NOTE "Unattended Auto Passes should not be left unattended for   "
  36. NOTE "more than 1/2 hour past their expected completion, UNLESS  "
  37. NOTE "you are confident of a trouble free connection between your"
  38. NOTE "modem and GEnie.  Interference from occurrences such as    "
  39. NOTE "line noise can produce unexpected results.                 "
  40. NOTE ""
  41. NOTE ""
  42. NOTE "         Waiting Until %1 to Begin Auto-pass %0"
  43. NOTE "                (press any key to abort)"
  44. WAITUNTIL %1
  45. IF SUCCESS
  46.   LOG ON
  47.   SENDLINE "TIMEP"
  48.   WAITFOR "Time:"
  49.   IF CURRENTLINEHAS "P Time:"
  50.     HANGUP
  51.     BEEP
  52.     CLEAR
  53.     NOTE ""
  54.     NOTE ""
  55.     NOTE "        Unattended Auto-pass was aborted because it was"
  56.     NOTE "        detected that log on occured during Prime Time."
  57.     NOTE ""
  58.     NOTE "               Press any key to continue..."
  59.     WAITFORKEYPRESS
  60.     GOTO END
  61.   ENDIF
  62.   WAITFORPROMPT
  63.   PERFORM %0
  64. ELSE
  65.   BEEP
  66.   NOTE "SCRIPT ABORTED!"
  67.   PAUSE 3
  68. ENDIF
  69. :END
  70. ENDSCRIPT
  71.